home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
rem_acc
/
listv10.zip
/
LISTER.25X
< prev
next >
Wrap
Text File
|
1996-04-13
|
5KB
|
210 lines
; RA-Lister v1.0 - RA 2.5x version
; (C) 1996 by Jason Raphael (1:284/22)
:START
Assign 29
Assign 30
Display "
RA-Lister v1.0
"
Display "||
V
)
View BBS listing"
Display "|
A
)
Add BBS to listing"
Display "|
Q
)
Quit RA-Lister"
Display "||
Type your selection now (V,A,Q)->
"
GetChoice VAQ 1
If 1 = "V"
DisplayFile LISTER
Goto START
EndIf
If 1 = "A"
Goto ADDBBS
EndIf
If 1 = "Q"
Goto END
EndIf
:ADDBBS
Display "
RA-Lister v1.0
"
Display "|
What is the name of the BBS?|"
Ask 30 20
If 20 = ""
Display "|
Abort this entry? <y/n>
"
GetChoice YN 15
If 15 = "Y"
Goto ABORTED
EndIf
If 15 = "N"
Assign 15 .
Goto ADDBBS
EndIf
:PHONENUM
Display "
RA-Lister v1.0
"
Display "|
What is the phone number of the BBS? (xxx-xxx-xxxx)|"
Ask 12 21
If 21 = ""
Display "|
Abort this entry? <y/n>
"
GetChoice YN 15
If 15 = "Y"
Goto ABORTED
EndIf
If 15 = "N"
Assign 15 .
Goto PHONENUM
EndIf
:BAUD
Display "
RA-Lister v1.0
"
Display "|
What is the maximum baud rate of the BBS?|"
Ask 5 22
If 22 = ""
Display "|
Abort this entry? <y/n>
"
GetChoice YN 15
If 15 = "Y"
Goto ABORTED
EndIf
If 15 = "N"
Assign 15 .
Goto BAUD
EndIf
Display "
RA-Lister v1.0
"
Display "|
Answer Y or N to the following questions."
Display "||Does the BBS have..."
Display "|
Online games? <y/n> "
GetChoice YN 23
If 23 = "Y"
Assign 23 Online games
EndIf
If 23 = "N"
Assign 23 [No online games]
EndIf
Display "|Files available to download? <y/n> "
GetChoice YN 24
If 24 = "Y"
Assign 24 Files
EndIf
If 24 = "N"
Assign 24 [No files]
EndIf
Display "|Multinode chat? <y/n> "
GetChoice YN 25
If 25 = "Y"
Assign 25 Multinode chat
EndIf
If 25 = "N"
Assign 25 [No multinode chat]
EndIf
Display "|A message base? <y/n> "
GetChoice YN 26
If 26 = "Y"
Assign 26 Message base
EndIf
If 26 = "N"
Assign 26 [No message base]
EndIf
Display "|Any message networks, such as FidoNet? <y/n> "
GetChoice YN 27
If 27 = "Y"
Assign 27 Message network(s)
EndIf
If 27 = "N"
Assign 27 [No message networks]
EndIf
Display "
RA-Lister v1.0
"
Display "|
Please enter any additional comments about the BBS now. This might include any"
Display "|special features or unique items online. You have three lines, no word wrap."
Display "|You may omit this section if you wish by pressing ENTER on the first blank line.||"
Ask 55 28
If 28 = ""
Assign 28 [No comment entered]
Goto VERIFY
EndIf
Ask 55 29
Ask 55 30
:VERIFY
Display "
RA-Lister v1.0
"
Display "|
Information entered:|"
Display "
BBS name:
"
ListAnswer 20
Display "
Phone number:
"
ListAnswer 21
Display "
Maximum baud rate:
"
ListAnswer 22
Display "
Features include:
"
ListAnswer 23
Display " "
ListAnswer 24
Display " "
ListAnswer 25
Display " "
ListAnswer 26
Display " "
ListAnswer 27
Display "
Comments:
"
ListAnswer 28
ListAnswer 29
ListAnswer 30
Display "|
Is this correct? <y/n>"
GetChoice YN 31
If 31 = "Y"
Goto CORRECT
EndIf
If 31 = "N"
Display "|
Edit, abort, or continue? <E,A,C>
"
GetChoice EAC 15
If 15 = "E"
Assign 15 .
Goto ADDBBS
EndIf
If 15 = "A"
Goto ABORTED
EndIf
If 15 = "C"
Assign 15 .
Goto VERIFY
EndIf
:CORRECT
OutputAnswer "
BBS name:
" 20
OutputAnswer "
Phone number:
" 21
OutputAnswer "
Maximum baud rate:
" 22
OutputAnswer "
Features include:
" 23
OutputAnswer " " 24
OutputAnswer " " 25
OutputAnswer " " 26
OutputAnswer " " 27
OutputAnswer "
Comments:
" 28
OutputAnswer "
" 29
OutputAnswer "
" 30
Commit
Exec *c /c lister.bat add
Assign 10 Added entry
Display "|
Entry has been added."
Display "||
Press
ENTER
to continue.."
WaitEnter
Goto start
:ABORTED
Assign 15 .
Display "|
Aborted."
Display "||
Press
ENTER
to continue.."
WaitEnter
Goto START
:end
Assign 11 RA-Lister executed by A [3] on node W (J, I)
Assign 12 - Exited RA-Lister (I)
If 10 = "Added entry"
OutputAnswer "" 11
OutputAnswer "- Added BBS entry: " 20
OutputAnswer "" 12
Commit
Exec *c /c lister.bat log
EndIf
If 10 = ""
OutputAnswer "" 11
OutputAnswer "" 12
Commit
Exec *c /c lister.bat log
EndIf
quit